home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / TUTOR150.ZIP / TUTOR.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-06-09  |  13.8 KB  |  401 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     Declare  Function FUNCTION001() String
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     STRING001 = ReadLine(PCBDat(), 94)
  34.     INTEGER001 = Len(STRING001) / 16
  35.     STRING002 = String(Asc(Mid(STRING001, INTEGER001, 3))) + String(Asc(Right(STRING001, 3))) + String(Asc(Mid(STRING001, 9, 12)))
  36.     FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
  37.     FGet 1, STRING003
  38.     FGet 1, STRING004
  39.     FGet 1, STRING006
  40.     FGet 1, STRING005
  41.     FGet 1, STRING007
  42.     FCloseAll
  43.     Log "      Opened DOOR (Tutorial) at @SYSTIME@", 1
  44.     If (AnsiOn()) Then
  45.         Goto LABEL001
  46.     Endif
  47.     PrintLn 
  48.     PrintLn 
  49.     PrintLn "PCBoard Tutorial - ERROR: 101"
  50.     PrintLn 
  51.     PrintLn "ANSI.SYS is REQUIRED! to view this program."
  52.     PrintLn "Please make sure that you have the ANSI.SYS command loaded in your"
  53.     PrintLn "config.sys file and that you choose Color graphics on this system."
  54.     PrintLn 
  55.     Goto LABEL018
  56.     :LABEL001
  57.     PrintLn "@CLS@@POFF@"
  58.     PrintLn 
  59.     PrintLn "@X1F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X08█"
  60.     PrintLn "@X1F█                                                                             @X18█@X07"
  61.     PrintLn "@X1F█    @X19PCB Tutorial       PCB Tutorial       PCB Tutorial       PCB Tutorial    @X08█"
  62.     PrintLn "@X1F█    @X19PCB T@X7F ┌─────────────────────────────────────────────────────────@X70┐ @X19ial    @X08█"
  63.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X70╗══╗╔══╗╗══╗@X78tm  @X70╔═╦═╗╦  ╦╔═╦═╗╔══╗╔══╗ ╦ ╔══╗╦       │ @X19ial    @X08█"
  64.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X71╠══╝║   ╠══╣      ║  ║  ║  ║  ║  ║╠═╦╝ ║ ╠══╣║       @X70│ @X19ial    @X08█"
  65.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │    @X70╩   ╚══╝╝══╝      ╩  ╚══╝  ╩  ╚══╝╩ ╚═ ╩ ╩  ╩╚══╝    │ @X19ial    @X08█"
  66.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │@X74                     Version 1.50                        @X70│ @X19ial    @X08█"
  67.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │ @X78   PCBoard Tutorial (C) (06-09-95) - A.711" + STRING003 + "600", "@POS:69@ @X70│ @X19ial    @X08█"
  68.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │                                                         @X70│ @X19ial    @X08█"
  69.     PrintLn "@X1F█    @X19PCB@X08 T@X7F │ @X70                                                        │ @X19ial    @X08█"
  70.     PrintLn "@X1F█    @X19PCB@X08 T@X7F └@X70─────────────────────────────────────────────────────────┘ @X19ial    @X08█"
  71.     PrintLn "@X1F█    @X19PCB@X08 Tutorial        PCB Tutorial      PCB Tutorail       PCB Tuto@X19rial    @X08█"
  72.     PrintLn "@X1F█    @X19PCB Tutorial        PCB Tutorial      PCB Tutorial       PCB Tutorial    @X08█"
  73.     PrintLn "@X1F█                                                                             @X08█"
  74.     PrintLn "@X1F█@X18▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X07"
  75.     PrintLn "@X03                       Copyright (c)1995 Equinox Software"
  76.     If (STRING002 <> STRING003) Then
  77.         Goto LABEL002
  78.     ElseIf (STRING002 == STRING003) Then
  79.         Goto LABEL003
  80.     Endif
  81.     :LABEL002
  82.     AnsiPos 27, 12
  83.     PrintLn "@XFEUNREGISTERED EVALUATION COPY@X03"
  84.     AnsiPos 27, 13
  85.     PrintLn "@X7E      20 Second Delay       @X07"
  86.     Delay 18 * 15
  87.     Goto LABEL004
  88.     :LABEL003
  89.     AnsiPos 27, 12
  90.     PrintLn "@X70Registered and Licensed to:@X07"
  91.     AnsiPos 13, 13
  92.     PrintLn "@X70@BOARDNAME:54C@@X07"
  93.     AnsiPos 1, 22
  94.     PrintLn "@WAIT@"
  95.     :LABEL004
  96.     PrintLn "@CLS@  @X4E  PCB Tutorial @X07    @X17╔════════════════════════════════════════════════════════╗@X07"
  97.     PrintLn "@X70┌─@X4E  Version 1.50 @X70─┐@X01  @X17║                                                        ║@X07"
  98.     PrintLn "@X70│                 │@X01  @X17╟────────────────────────────────────────────────────────╢@X07"
  99.     PrintLn "@X70│ @X6F  @X60(@X6FW@X60)@X67elcome  @X6F @X78▄ @X70│@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  100.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B┌──────────────────────────────────────────────────┐@X03░░@X17║@X07"
  101.     PrintLn "@X70│ @X10  @X13(@X1FC@X13)@X17ommands  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  102.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  103.     PrintLn "@X70│ @X2F @X28(@X2FL@X28)ogging On @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  104.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  105.     PrintLn "@X70│ @X1F  @X13(@X1FI@X13)@X17nternet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  106.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│    Please make your selection from any of the    │@X03░░@X17║@X07"
  107.     PrintLn "@X70│ @X50   (@X5FU@X50)@X57senet   @X78▄ @X70│@X01  @X17║@X03░░@X0B│              catagories on the left.             │@X03░░@X17║@X07"
  108.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  109.     PrintLn "@X70│ @X30   @X34(@X3FF@X34)@X38idonet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  110.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  111.     PrintLn "@X70│ @X40    (@X4FH@X40)@X47elp    @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  112.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  113.     PrintLn "@X70│ @X2F    @X28(@X2EE@X28)@X20XIT    @X78▄ @X70│@X0F  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  114.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B└──────────────────────────────────────────────────┘@X03░░@X17║@X07"
  115.     PrintLn "@X70│                 │@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  116.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  117.     If (STRING002 <> STRING003) Then
  118.         Goto LABEL006
  119.     ElseIf (STRING002 == STRING003) Then
  120.         Goto LABEL005
  121.     Endif
  122.     :LABEL005
  123.     AnsiPos 24, 2
  124.     PrintLn "@X1BRegistered to: @X1F@BOARDNAME:39@@X07"
  125.     Goto LABEL007
  126.     :LABEL006
  127.     AnsiPos 36, 2
  128.     PrintLn "@X9E UNREGISTERED EVALUATION COPY@X07"
  129.     :LABEL007
  130.     Goto LABEL009
  131.     :LABEL008
  132.     AnsiPos 1, 4
  133.     PrintLn "@X70│ @X6F  @X60(@X6FW@X60)@X67elcome  @X6F @X78▄ @X70│@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  134.     AnsiPos 1, 5
  135.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B┌──────────────────────────────────────────────────┐@X03░░@X17║@X07"
  136.     AnsiPos 1, 6
  137.     PrintLn "@X70│ @X10  @X13(@X1FC@X13)@X17ommands  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  138.     AnsiPos 1, 7
  139.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  140.     AnsiPos 1, 8
  141.     PrintLn "@X70│ @X2F @X28(@X2FL@X28)ogging On @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  142.     AnsiPos 1, 9
  143.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  144.     AnsiPos 1, 10
  145.     PrintLn "@X70│ @X1F  @X13(@X1FI@X13)@X17nternet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  146.     AnsiPos 1, 11
  147.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│    Please make your selection from any of the    │@X03░░@X17║@X07"
  148.     AnsiPos 1, 12
  149.     PrintLn "@X70│ @X50   (@X5FU@X50)@X57senet   @X78▄ @X70│@X01  @X17║@X03░░@X0B│              catagories on the left.             │@X03░░@X17║@X07"
  150.     AnsiPos 1, 13
  151.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  152.     AnsiPos 1, 14
  153.     PrintLn "@X70│ @X30   @X34(@X3FF@X34)@X38idonet  @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  154.     AnsiPos 1, 15
  155.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  156.     AnsiPos 1, 16
  157.     PrintLn "@X70│ @X40    (@X4FH@X40)@X47elp    @X78▄ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  158.     AnsiPos 1, 17
  159.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  160.     AnsiPos 1, 18
  161.     PrintLn "@X70│ @X2F    @X28(@X2EE@X28)@X20XIT    @X78▄ @X70│@X0F  @X17║@X03░░@X0B│                                                  │@X03░░@X17║@X07"
  162.     AnsiPos 1, 19
  163.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X03░░@X0B└──────────────────────────────────────────────────┘@X03░░@X17║@X07"
  164.     AnsiPos 1, 20
  165.     PrintLn "@X70│                 │@X01  @X17║@X03░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  166.     AnsiPos 1, 21
  167.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  168.     AnsiPos 1, 22
  169.     PrintLn "                                                            "
  170.     :LABEL009
  171.     AnsiPos 1, 22
  172.     STRING008 = " "
  173.     While (Upper(STRING008) <> "E") Do
  174.         STRING008 = FUNCTION001()
  175.         If (STRING008 == "END") Goto LABEL018
  176.         If (STRING008 == Chr(13)) Goto LABEL010
  177.         If (Upper(STRING008) == "W") Then
  178.             Goto LABEL011
  179.             Continue
  180.         Endif
  181.         If (Upper(STRING008) == "I") Then
  182.             Goto LABEL013
  183.             Continue
  184.         Endif
  185.         If (Upper(STRING008) == "U") Then
  186.             Goto LABEL015
  187.             Continue
  188.         Endif
  189.         If (Upper(STRING008) == "H") Then
  190.             Goto LABEL016
  191.             Continue
  192.         Endif
  193.         If (Upper(STRING008) == "F") Then
  194.             Goto LABEL017
  195.             Continue
  196.         Endif
  197.         If (Upper(STRING008) == "C") Then
  198.             Goto LABEL014
  199.             Continue
  200.         Endif
  201.         If (Upper(STRING008) == "L") Then
  202.             Goto LABEL012
  203.             Continue
  204.         Endif
  205.         If ((Upper(STRING008) == "E") || (Upper(STRING008) == "e")) Then
  206.             Goto LABEL018
  207.         Endif
  208.     EndWhile
  209.     End
  210.  
  211. ;------------------------------------------------------------------------------
  212.  
  213.     Function FUNCTION001() String
  214.  
  215.     While (FUNCTION001 == "") Do
  216.         FUNCTION001 = Inkey()
  217.     EndWhile
  218.  
  219.     EndFunc
  220.  
  221.     :LABEL010
  222.     AnsiPos 26, 17
  223.     PrintLn "@X4F  Please @XCEmake your selection @X4Ffrom the catagories  @X07"
  224.     AnsiPos 26, 18
  225.     PrintLn "@X4F                   on the LEFT.                   @X07"
  226.     Delay 100
  227.     Goto LABEL008
  228.     :LABEL011
  229.     AnsiPos 1, 4
  230.     PrintLn "@X70│ @X6F              @X78▄ @X70│@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  231.     AnsiPos 1, 5
  232.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X30┌──────────────────────────────────────────────────@X3B┐@X01░░@X17║@X07"
  233.     AnsiPos 1, 6
  234.     PrintLn "@X70│ @X10              @X78▄ @X70│@X01  @X17║@X01░░@X30│ @X3FWelcome @X3E@FIRST@, @X3Fto the PCB Tutorial!         @POS:76@@X3B│@X01░░@X17║@X07"
  235.     AnsiPos 1, 7
  236.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X30│ The sole purpose of this program is to help give @X3B│@X01░░@X17║@X07"
  237.     AnsiPos 1, 8
  238.     PrintLn "@X70│ @X2F @X20             @X78▄ @X70│@X01  @X17║@X01░░@X30│ you a better understanding of how to use PCBoard @X3B│@X01░░@X17║@X07"
  239.     AnsiPos 1, 9
  240.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X30│ using ordinary language rather than cybergargon. @X3B│@X01░░@X17║@X07"
  241.     AnsiPos 1, 10
  242.     PrintLn "@X70│ @X1F              @X78▄ @X70│@X01  @X17║@X01░░@X30│                                                  @X3B│@X01░░@X17║@X07"
  243.     AnsiPos 1, 11
  244.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X30│ If at any time you need help with using this     @X3B│@X01░░@X17║@X07"
  245.     AnsiPos 1, 12
  246.     PrintLn "@X70│ @X50              @X78▄ @X70│@X01  @X17║@X01░░@X30│ program just choose the @X3E[@X31H@X3E]@X31elp @X30option from the   @X3B│@X01░░@X17║@X07"
  247.     AnsiPos 1, 13
  248.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X30│ main menu.                                       @X3B│@X01░░@X17║@X07"
  249.     AnsiPos 1, 14
  250.     PrintLn "@X70│ @X30              @X78▄ @X70│@X01  @X17║@X01░░@X30│                                                  @X3B│@X01░░@X17║@X07"
  251.     AnsiPos 1, 15
  252.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X30│ If you have any comments or suggestions about    @X3B│@X01░░@X17║@X07"
  253.     AnsiPos 1, 16
  254.     PrintLn "@X70│ @X40              @X78▄ @X70│@X01  @X17║@X01░░@X30│ this program you can contact us directly or you  @X3B│@X01░░@X17║@X07"
  255.     AnsiPos 1, 17
  256.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X30│ can leave a @X3E[@X31C@X3E]@X31omment @X30with your SysOp.           @X3B│@X01░░@X17║@X07"
  257.     AnsiPos 1, 18
  258.     PrintLn "@X70│ @X2F              @X78▄ @X70│@X0F  @X17║@X01░░@X30│         @X3FEquinox Software (312) 254-3413          @X3B│@X01░░@X17║@X07"
  259.     AnsiPos 1, 19
  260.     PrintLn "@X70│  @X78▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X70│@X01  @X17║@X01░░@X30└@X3B──────────────────────────────────────────────────┘@X01░░@X17║@X07"
  261.     AnsiPos 1, 20
  262.     PrintLn "@X70│                 │@X01  @X17║@X01░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@X17║@X07"
  263.     AnsiPos 1, 21
  264.     PrintLn "@X70└──── Options ────┘@X01  @X17╚════════════════════════════════════════════════════════╝@X07"
  265.     AnsiPos 1, 22
  266.     PrintLn "                                                            "
  267.     AnsiPos 1, 22
  268.     Wait
  269.     Goto LABEL008
  270.     :LABEL012
  271.     Call PPEPath() + "LOGIN.MOD"
  272.     Goto LABEL004
  273.     :LABEL013
  274.     Call PPEPath() + "INTERNT.MOD"
  275.     Goto LABEL008
  276.     :LABEL014
  277.     Call PPEPath() + "commands.mod"
  278.     Goto LABEL008
  279.     :LABEL015
  280.     Call PPEPath() + "USENET.MOD"
  281.     Goto LABEL008
  282.     :LABEL016
  283.     Call PPEPath() + "HELP.MOD"
  284.     Goto LABEL008
  285.     :LABEL017
  286.     Call PPEPath() + "FIDO.MOD"
  287.     Goto LABEL008
  288.     :LABEL018
  289.     PrintLn "@CLS@@X1F█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X08█@X0B"
  290.     PrintLn "@X1F█                                                                            @X18█@X0B"
  291.     PrintLn "@X1F█    @X19PCB Tutorial       PCB Tutorial       PCB Tutorial       PCB Tutorial   @X08█@X0B"
  292.     PrintLn "@X1F█    @X19PCB T@X47 ┌─────────────────────────────────────────────────────────┐ @X19ial   @X08█@X0B"
  293.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │         @X4B≡≡≡≡≡  @X4ECREDITS / ACKNOWLEDGEMENTS  @X4B≡≡≡≡≡        @X47│ @X19ial   @X08█@X0B"
  294.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │                                                         │ @X19ial   @X08█@X0B"
  295.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │         @X4FPCBoard is a registered Trademark (R) of        @X47│ @X19ial   @X08█@X0B"
  296.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │@X4F               Clark Developement Co, Inc.               @X47│ @X19ial   @X08█@X0B"
  297.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │                                                         │ @X19ial   @X08█"
  298.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4FA special thanks to The Wizard's BBS (508)481-4693,     @X47│ @X19ial   @X08█"
  299.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4FBob Neal and Jay Parekh for there suggestions and beta  @X47│ @X19ial   @X08█"
  300.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │ @X4Ftesting of this program.                                @X47│ @X19ial   @X08█"
  301.     PrintLn "@X1F█    @X19PCB@X08 T@X47 │                                                         │ @X19ial   @X08█"
  302.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │                                                         │ @X19ial   @X08█@X0B"
  303.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 │          @X4APCB Tutorial (C)1995 Equinox Software          @X47│ @X19ial   @X08█@X0B"
  304.     PrintLn "@X1F█    @X19PCB@X07 @X08T@X47 └─────────────────────────────────────────────────────────┘ @X19ial   @X08█@X0B"
  305.     PrintLn "@X1F█    @X19PCB@X07 @X08Tutorial        PCB Tutorial      PCB Tutorail       PCB Tuto@X19rial   @X08█"
  306.     PrintLn "@X1F█    @X19PCB Tutorial        PCB Tutorial      PCB Tutorial       PCB Tutorial   @X08█@X0B"
  307.     PrintLn "@X1F█  @X17                                                                          @X08█"
  308.     PrintLn "@X1F█@X18▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█@X07"
  309.     PrintLn "@WAIT@", "@PON@"
  310.     If (STRING002 <> STRING003) Then
  311.         Goto LABEL019
  312.     ElseIf (STRING002 == STRING003) Then
  313.         Goto LABEL020
  314.     Endif
  315.     :LABEL019
  316.     AnsiPos 27, 5
  317.     PrintLn "@XCE UNREGISTERED EVALUATION COPY @X07"
  318.     AnsiPos 1, 21
  319.     PrintLn "        @X0ASupport Shareware - Ask your SysOp to register this program@X07"
  320.     Delay 18 * 15
  321.     :LABEL020
  322.     PrintLn 
  323.     PrintLn "Now returning to the @BOARDNAME@...."
  324.     Log "      Back from DOS at @SYSTIME@", 1
  325.     Delay 12
  326.     KbdStuff "MENU"
  327.  
  328. ;------------------------------------------------------------------------------
  329. ;
  330. ; Usage report (before postprocessing)
  331. ;
  332. ; ■ Statements used :
  333. ;
  334. ;    1       End
  335. ;    1       Wait
  336. ;    59      Goto 
  337. ;    6       Let 
  338. ;    120     PrintLn 
  339. ;    19      If 
  340. ;    1       FOpen 
  341. ;    5       FGet 
  342. ;    2       Log 
  343. ;    4       Delay 
  344. ;    1       KbdStuff 
  345. ;    6       Call 
  346. ;    51      AnsiPos 
  347. ;    1       FCloseAll
  348. ;    1       EndFunc
  349. ;
  350. ;
  351. ; ■ Functions used :
  352. ;
  353. ;    2       *
  354. ;    1       /
  355. ;    11      +
  356. ;    15      ==
  357. ;    4       <>
  358. ;    17      !
  359. ;    1       ||
  360. ;    1       Len(
  361. ;    10      Upper()
  362. ;    2       Mid()
  363. ;    1       Right()
  364. ;    1       Chr()
  365. ;    3       Asc()
  366. ;    1       Inkey()
  367. ;    3       String()
  368. ;    1       PCBDat()
  369. ;    7       PPEPath()
  370. ;    1       ReadLine()
  371. ;    1       AnsiOn()
  372. ;
  373. ;------------------------------------------------------------------------------
  374. ;
  375. ; Analysis flags : Cd
  376. ;
  377. ; C - Call child PPE ■ 3
  378. ;     This is usually normal, but may be a tricky way to launch some
  379. ;     sysop-only commands.
  380. ;     ■ Search for : CALL
  381. ;
  382. ; d - Access PCBOARD.DAT ■ 2
  383. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  384. ;     for many PPE so they can find various informations on the system
  385. ;     (system paths, max number of lines in messages, ...) but it may also
  386. ;     be a way to gather vital informations.
  387. ;     ■ Search for : PCBDAT()
  388. ;
  389. ;------------------------------------------------------------------------------
  390. ;
  391. ; Postprocessing report
  392. ;
  393. ;    0       For/Next
  394. ;    2       While/EndWhile
  395. ;    15      If/Then or If/Then/Else
  396. ;    0       Select Case
  397. ;
  398. ;------------------------------------------------------------------------------
  399. ;                 AEGiS Corp - Break the routines, code against the machines!
  400. ;------------------------------------------------------------------------------
  401.